home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / tp5demo / install < prev    next >
Text File  |  1997-01-26  |  17KB  |  642 lines
  1. ; Installation script for TurboPrint Professional 5.01 Demo 
  2. ; (C) 1996 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 5.01 Demo (10.12.96) 
  6. ;
  7. ;
  8. ;   "Install TurboPrint"         operationMode = 0
  9. ;   "Update TurboPrint"          operationMode = 1
  10. ;   "Remove TurboPrint"          operationMode = 2
  11. ;   "Query TurboPrint Version"   operationMode = 3
  12. ;
  13.  
  14.  
  15. ; String constants section. All messages and strings appear in this section
  16. ; for easier translation into foreign languages.
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;
  20. ; LANGUAGE SECTION
  21. ;
  22. ; to support more than only one language, there is a special section for
  23. ; each supported language.
  24. ;
  25.  
  26. (if (<> @language "english")
  27. ((if (<> @language "deutsch")
  28.  ( set @language "english")
  29.  )
  30. ))
  31.    (set #tp-version "TurboPrint Professional 5.01 Demo (10.12.96) " )
  32.  
  33.    (set #wrongversion
  34.       (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  35.            "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer V43.3. "
  36.            "Dieser befindet sich auf der Diskette.\n\n"
  37.            "Falls Sie das Utility MCP installiert haben, müssen Sie den Installer von Diskette "
  38.            "auf Ihren Amiga kopieren oder MCP abschalten."
  39.       )
  40.    )
  41.  
  42.    (set #introduction
  43.       (cat "\nInstallation von TurboPrint Professional 5.01 Demo \n"
  44.              "    Copyright © 1996 IrseeSoft SPCS\n\n"
  45.            "Bitte wählen Sie:\n\n"
  46.       )
  47.    )
  48.  
  49.    (set #introduction-help
  50.       (cat "Neu installieren von TurboPrint:\n"
  51.            "Die TurboPrint Software wird auf Ihre Festplatte kopiert. "
  52.            "Wählen Sie diese Option, falls noch keine ältere Version "
  53.            "von TurboPrint auf Ihrer Festplatte installiert war.\n\n"
  54.        "Update installieren:\n"
  55.            "Eine bereits auf der Platte befindliche alte Version von "
  56.            "TurboPrint wird durch TurboPrint Professional 5 ersetzt. "
  57.            "Dazu werden nicht mehr benötigte Dateien der alten Version "
  58.            "gelöscht.\n\n"
  59.            "Entfernen von der Platte:\n"
  60.            "Das TurboPrint Verzeichnis wird von der Platte gelöscht, "
  61.            "Einträge in der user-startup und im WBStartup-Verzeichnis "
  62.            "werden entfernt.\n\n"
  63.            "Version:\n"
  64.            "Die Versionsnummern von Kickstart, Workbench und TurboPrint "
  65.        "werden angezeigt.\n\n"
  66.       )
  67.    )
  68.  
  69.    (set #need-os2
  70.       (cat "\nTurboPrint Professional 5 benötigt Kickstart 2.04 oder höher\n"
  71.            "Um TurboPrint Professional 5 zu verwenden, müssen Sie Ihren "
  72.            "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
  73.            "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
  74.        "sind im Fachhandel oder Versandhandel erhältlich.\n"
  75.        "Als Übergangslösung empfehlen wir die Verwendung von "
  76.            "TurboPrint 3.0.\n"
  77.       )
  78.    )
  79.  
  80.    (set #install "Neu installieren von TurboPrint")
  81.    (set #update  "Update installieren")
  82.    (set #remove  "Entfernen von der Platte")
  83.    (set #version "Versionsnummer anzeigen")
  84.  
  85. ; additional help to the built-in one
  86.    (set #generic-help
  87.       (cat "Bitte lesen Sie auch die ReadMe-Datei auf dieser Diskette!\n"
  88.       )
  89.    )
  90.  
  91.    (set #which-printer
  92.       (cat "Bitte wählen Sie Ihren Drucker aus\n(oder wählen Sie"
  93.            "'Hilfe', falls Ihr Drucker nicht aufgelistet ist)\n")
  94.    )
  95.    (set #help-printer
  96.       (cat "Falls Ihr Drucker nicht namentlich aufgelistet ist, "
  97.            "sehen Sie bitte in Ihrem Drucker-Handbuch nach, welche "
  98.            "Emulationen Ihr Drucker unterstützt und wählen den "
  99.        "entsprechenden TurboPrint-Treiber "
  100.        "(z.B. Epson LQ2550 -> Epson_LQ,SQxx50 in TurboPrint) "
  101.        "oder wählen Sie einen der folgenden Einträge: \n"
  102.        "'.24-Nadel', '.9-Nadel', '.Laser', "
  103.        "'.Tinte-HP-kompatibel', '.Tinte-Epson-kompatibel'\n\n"
  104.        "Sie können auch nach der Installation jederzeit weitere "
  105.            "Treiber auswählen.\n\n" )
  106.    )
  107.  
  108.    (set #another-printer
  109.       (cat "Wollen Sie einen weiteren Drucker installieren?\n"
  110.            "Bisher installierte Drucker:\n\n" )
  111.    )
  112.  
  113.    (set #ask-priyes "Ja")
  114.    (set #ask-prino "Nein")
  115.  
  116.    (set #remove-drivers
  117.       (cat "\nSie haben 'TurboPrint von der Platte entfernen' gewählt.\n"
  118.            "Dabei wird die TurboPrint-Schublade komplett von der Festplatte "
  119.            "gelöscht. Bitte vergewissern Sie sich, ob sich darin noch "
  120.            "von Ihnen benötigte Programme oder Dateien befinden!\n"
  121.       )
  122.    )
  123.  
  124.    (set #update-drivers
  125.       (cat "\nBeim Update werden alle Dateien gelöscht, die "
  126.            "sich momentan in den Verzeichnissen "
  127.            "'Printers', 'Configs' und 'Turbo' innerhalb der TurboPrint "
  128.            "Schublade befinden.\n"
  129.            "z.B. auch alte Druckertreiber und Konfigurationsdateien.\n" 
  130.            "Falls Sie das nicht wollen, wählen Sie bitte "
  131.            "'Installation abbrechen'."
  132.       )
  133.    )
  134.  
  135.    (set #removing-drivers
  136.       (cat "\nTurboPrint wird von Ihrer Festplatte entfernt..."
  137.       )
  138.    )
  139.    (set #removing-TurboPrefs
  140.       (cat "Falls die startup-sequence/user-startup durch das TurboPrint "
  141.            "Installationsprogramm geändert wurde, wird dies nun "
  142.            "automatisch rückgängig gemacht."
  143.       )
  144.    )
  145.    (set #adding-TurboPrefs
  146.       (cat "Die user-startup Datei wird um den Befehl \n"
  147.            "'Assign TurboPrint: <pfad>:TurboPrint' \n"
  148.            "erweitert."
  149.       )
  150.    )
  151.  
  152.    (set #ask-wbstart20
  153.     (cat "Sie können TurboPrint beim Rechnerstart automatisch installieren "
  154.          "lassen. Dazu wird ein Startprogramm in die WBStartup-Schublade "
  155.          "kopiert.\n"
  156.      "Sie können den Autostart jederzeit wieder entfernen, indem Sie "
  157.          "das Icon 'TurboStart' aus der WBStartup-Schublade herausnehmen.\n"
  158.     )
  159.    )
  160.    (set #wbstart-help
  161.     (cat "Autostart installieren:\n"
  162.          "Beim Einschalten des Rechners oder nach einem Reset wird "
  163.          "TurboPrint automatisch geladen. Dies ist sinnvoll, wenn "
  164.          "Sie meistens TurboPrint-Treiber anstelle der Workbench-Druckertreiber "
  165.          "verwenden wollen. Um wieder auf die Workbench-Treiber "
  166.          "zurückzuschalten, verwenden Sie das Programm 'NoTurbo'.\n\n"
  167.          "Kein Autostart:\n"
  168.          "TurboPrint muß nach dem Einschalten mit Hilfe von TurboPrefs "
  169.          "geladen werden. Diese Option ist sinnvoll, wenn Sie "
  170.          "in der Regel mit den Workbench-Treibern arbeiten und nur "
  171.          "bei Bedarf auf die TurboPrint-Treiber umschalten wollen.\n\n"
  172.     )
  173.    )
  174.  
  175.    (set #ask-wbyes "Autostart installieren" )
  176.  
  177.    (set #ask-wbno "Kein Autostart" )
  178.  
  179.    (set #ask-printmanager 
  180.     (cat "Wollen Sie das Grafik Anzeige- und Druckprogramm "
  181.          "Grafik-Publisher installieren?" 
  182.     )
  183.    )
  184.  
  185.    (set #ask-pmyes "Grafik-Publisher installieren" )
  186.  
  187.    (set #ask-pmno "Nicht installieren" )
  188.  
  189.    (set #ask-pictures 
  190.     (cat "Wollen Sie die Demo-Bilder auf die Festplatte kopieren?" )
  191.    )
  192.  
  193.    (set #ask-piyes "Bilder kopieren" )
  194.  
  195.    (set #ask-pino "Nicht kopieren" )
  196.  
  197.    (set #version-info "\nInformation über Ihr System:\n")
  198.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  199.  
  200.  
  201.    (set #installation-done
  202.       (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
  203.     "Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
  204.     "Sie Ihren Amiga neu."
  205.     )
  206.    )
  207.  
  208. ; General initialisation of internal states, options and pre-defined
  209. ; variables go here.
  210.  
  211. (delopts askuser)
  212.  
  213. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  214. ; This is needed for the WBStartup feature and the Printmanager
  215.  
  216. (set kickVersion (shiftright (getversion) 16))
  217.  
  218. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  219.  
  220. ; set source directory
  221.  
  222. (set sourcedir (pathonly @icon))
  223.  
  224. ;
  225. (if (< kickVersion 37)
  226.   (
  227.    (message #need-os2)
  228.    (exit (quiet))
  229.   )
  230. )
  231. ;
  232.  
  233. ;Installer-Version prüfen...
  234.  
  235. (if (< @installer-version 2818051)
  236.  (
  237.   (user 2)
  238.   (message #wrongversion)
  239.   (exit (quiet))
  240.  )
  241. )
  242.  
  243. (welcome)
  244.  
  245. ; remember current user level
  246.  
  247. (set old-level @user-level)
  248.  
  249. ; Introduce ourself to the user. Query whether the software shall be
  250. ; installed/updated or removed altogether.
  251.  
  252. (set operationMode
  253.    (askchoice
  254.       (prompt #introduction)
  255.       (choices #install #update #remove #version)
  256.       (help #generic-help #introduction-help @askchoice-help)
  257.    )
  258. )
  259.  
  260. ; Show version number
  261.  
  262. (if (= operationMode 3)
  263.    (
  264.    ; Find out the version of the Kickstart and Workbench and append it to the
  265.    ; version information string.
  266.  
  267.    (set #version-info 
  268.      (cat #version-info 
  269.       (#system-version-info 
  270.  
  271.     (shiftright (getversion) 16)
  272.     (bitand (getversion) 65535)
  273.     (shiftright (getversion "LIBS:version.library") 16)
  274.     (bitand (getversion "LIBS:version.library") 65535)
  275.       )
  276.      )
  277.    )
  278.      
  279.  
  280.    ; Get the version string from this installer script itself!
  281.  
  282.    (set #version-info (cat #version-info #tp-version))
  283.  
  284.    (message #version-info)
  285.    (exit (quiet))
  286.    )
  287. )
  288.  
  289. ; Get path of TurboPrint
  290. ; Set the prompt depending on operationMode
  291.  
  292. (if (= operationMode 0)
  293.  
  294.    (set #path-prompt (cat "In welchem Verzeichnis soll das TurboPrint-Verzeichnis "
  295.               "erstellt werden?")
  296.    )
  297. )
  298.  
  299. (if (= operationMode 1)
  300.  
  301.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  302.               "in welches das Update installiert werden soll?")
  303.    )
  304. )
  305.  
  306. (if (= operationMode 2)
  307.  
  308.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  309.               "das entfernt werden soll?")
  310.    )
  311. )
  312.  
  313.  
  314. ; ask for the destination directory
  315.  
  316. (if (not (exists "Work:"))
  317.    (user 1)
  318. )
  319.  
  320. (set target
  321.    (askdir (prompt #path-prompt)
  322.    (help #generic-help @askdir-help)
  323.    (default "Work:") )
  324. )
  325.  
  326. (user old-level)
  327.  
  328. ; do some cleanup if there was an old version of tp installed
  329. ; - no questions aked -
  330. ; try to remove TurboPrint
  331.  
  332. (run (cat (tackon sourcedir "NoTurbo") " -q"))
  333.  
  334. ; Update TurboPrint => remove contents of Printers, Configs and Turbo drawers
  335.  
  336. (if (= operationMode 1)
  337.  (
  338.    (message #update-drivers)
  339.    
  340.       (delete (tackon target "TurboPrint/Druckmanager"))
  341.       (delete (tackon target "TurboPrint/Druckmanager.info"))
  342.       (delete (tackon target "TurboPrint/TurboPrefs"))
  343.       (delete (tackon target "TurboPrint/TurboPrefs.info"))
  344.       (delete (tackon target "TurboPrint/NoTurbo"))
  345.       (delete (tackon target "TurboPrint/NoTurbo.info"))
  346.  
  347.       (delete (tackon target "TurboPrint/Printers") (all))
  348.       (delete (tackon target "TurboPrint/Configs") (all))
  349.       (delete (tackon target "TurboPrint/Turbo") (all))
  350.       (delete (tackon target "TurboPrint/Colors") (all))
  351.       (delete (tackon target "TurboPrint/Drivers") (all))
  352.  )
  353. )
  354.  
  355. ; Remove TurboPrint => remove TurboPrint drawer completely
  356.  
  357. (if (= operationMode 2)
  358.  (
  359.    (message #remove-drivers)
  360.    (working #removing-drivers)
  361.  
  362.    (delete (tackon target "TurboPrint") (all) )
  363.  
  364.    ;Remove TurboStart in WBStartup
  365.  
  366.    (delete "sys:WBStartup/TurboStart.info")
  367.  
  368.    ;Remove TurboPrefs in Prefs
  369.  
  370.    (delete "sys:Prefs/TurboPrefs.info")
  371.  
  372.    ;Inform user
  373.  
  374.    (startup "TurboPrint"
  375.          (prompt #removing-TurboPrefs)
  376.          (help #generic-help @startup-help)
  377.    )
  378.  )
  379. )
  380.  
  381. ;if install or update
  382.  
  383. (if (or (= operationMode 0) (= operationMode 1) )
  384.   (
  385.  
  386. ;Personalisierung
  387.  
  388.    (run (cat (tackon sourcedir "Extra/Personalisierung") " -q"))
  389.     
  390.  
  391. ;Make TurboPrint drawer
  392.    (makedir   (tackon target "TurboPrint") (infos))
  393.  
  394. ;Copy printer stuff
  395.    (copyfiles
  396.           (help   #generic-help @copyfiles-help)
  397.           (source (tackon sourcedir "Printers"))
  398.              (dest   (tackon target "TurboPrint/Printers"))
  399.               (all)
  400.    )
  401.  
  402. ;Choose default printer(s)
  403.  
  404. (set printer-copy 1)
  405.  
  406. (user 1)
  407.  
  408. (while (= 1 printer-copy)
  409.  (
  410.  
  411.   (set printer-name
  412.    (askfile (prompt #which-printer)
  413.    (help #help-printer @askfile-help)
  414.    (default (tackon target "TurboPrint/Printers"))
  415.    )
  416.   )
  417.  
  418.   (if ( = (tackon target "TurboPrint/Printers") (pathonly printer-name) )
  419. (
  420.   (set printer-name (fileonly printer-name))
  421.  
  422.   (set printer-name (substr printer-name 0 ( - (strlen printer-name) 4) ))
  423.  
  424.   (copyfiles
  425.    (help   #generic-help @copyfiles-help)
  426.    (source (tackon sourcedir "Configs/_Dummy_"))
  427.    (dest   (tackon target "TurboPrint/Configs" ))
  428.    (newname (cat printer-name ".tpc") )
  429.   )
  430.  
  431.   (set printer-list (cat printer-list printer-name "\n"))
  432.  
  433.   (set printer-copy (askbool (prompt (cat #another-printer printer-list) )
  434.          (help @askchoice-help)
  435. ))
  436.    )
  437.   )
  438.  
  439.  )
  440. )
  441.  
  442. (user old-level)
  443.  
  444.  
  445.  
  446. ;user-startup
  447. ;the installer creates a user-startup if it doesn't already exist
  448. ;dont ask user
  449.  
  450.  ;Add assign to user-startup
  451.  
  452.       (startup "TurboPrint"
  453.          (command (cat "Assign TurboPrint: " (tackon target "TurboPrint") )
  454.          )
  455.          (prompt #adding-TurboPrefs)
  456.          (help #generic-help @startup-help)
  457.       )
  458.  
  459. ;Execute assign NOW
  460.  
  461. (makeassign ("TurboPrint") (tackon target "TurboPrint") )
  462.  
  463.  
  464. ;install one of the two autostart options
  465.  
  466.    ;OS 2.x/3.0 => wbstartup drawer
  467.    ;ask user if he/she wants to have the autostart option installed
  468.  
  469.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  470.          (help #wbstart-help @askchoice-help)
  471.          (choices #ask-wbyes #ask-wbno)
  472.          (default 0)
  473.        )    )
  474.  (
  475.  ;Copy TurboStart icon to WBStartup-drawer
  476.  
  477.    (copyfiles
  478.           (help   #generic-help @copyfiles-help)
  479.           (source (tackon sourcedir "extra/TurboStart.info"))
  480.              (dest   "sys:WBStartup" )
  481.    )
  482.  
  483.    ;Put correct paths into TurboStart icon
  484.  
  485.    (tooltype
  486.       (dest "sys:WBStartup/TurboStart")
  487.           (setdefaulttool "TurboPrint:TurboPrefs" )
  488.           (settooltype "QUICK" "")
  489.           (settooltype "DONOTWAIT" "")
  490.       (noposition)
  491.    )
  492.  
  493.  )
  494. )
  495.  
  496. ;install the print manager?
  497.  
  498. (if (>= kickVersion 37)
  499.  (if (= 0 (askchoice (prompt #ask-printmanager)
  500.          (help @askchoice-help)
  501.          (choices #ask-pmyes #ask-pmno)
  502.          (default 0)
  503.          )
  504.     )
  505.   (
  506.    (copyfiles
  507.           (help   #generic-help @copyfiles-help)
  508.           (source (tackon sourcedir "GrafikPublisher"))
  509.              (dest   (tackon target "TurboPrint") )
  510.           (newname "Druckmanager")
  511.    )
  512.    (copyfiles
  513.           (help   #generic-help @copyfiles-help)
  514.           (source (tackon sourcedir "GrafikPublisher"))
  515.              (dest   (tackon target "TurboPrint") )
  516.               (infos)
  517.    )
  518.    (copylib
  519.          (source (tackon sourcedir "libs/multipic.library"))
  520.          (dest   "LIBS:")
  521.    )
  522.   )
  523.  )
  524. )
  525.  
  526. ;install the pictures?
  527.  
  528. (if (= 0 (askchoice (prompt #ask-pictures)
  529.          (help @askchoice-help)
  530.          (choices #ask-piyes #ask-pino)
  531.          (default 0)
  532.          )
  533.     )
  534.  (
  535.    (copyfiles
  536.           (help   #generic-help @copyfiles-help)
  537.           (source (tackon sourcedir "Pictures"))
  538.              (dest   (tackon target "TurboPrint/Pictures"))
  539.               (all)
  540.           (infos)
  541.    )
  542.  )
  543. )
  544.  
  545.  
  546. ;Do the other stuff
  547.  
  548.    (copyfiles
  549.           (help   #generic-help @copyfiles-help)
  550.           (source (tackon sourcedir "TurboPrefs"))
  551.              (dest   (tackon target "TurboPrint") )
  552.           (infos)
  553.    )
  554.  
  555.  ;Copy TurboPrefs icon to sys:prefs
  556.  
  557.    (copyfiles
  558.           (help   #generic-help @copyfiles-help)
  559.           (source (tackon sourcedir "extra/TurboStart.info"))
  560.              (dest   "sys:Prefs" )
  561.           (newname "TurboPrefs.info" )
  562.    )
  563.  
  564.    ;Put correct paths into TurboStart icon
  565.  
  566.    (tooltype
  567.       (dest "sys:Prefs/TurboPrefs")
  568.           (setdefaulttool "TurboPrint:TurboPrefs" )
  569.           (settooltype "(QUICK)" "" )
  570.       (noposition)
  571.    )
  572.  
  573.    (copyfiles
  574.           (help   #generic-help @copyfiles-help)
  575.           (source (tackon sourcedir "NoTurbo"))
  576.              (dest   (tackon target "TurboPrint") )
  577.           (infos)
  578.    )
  579.  
  580.    (copyfiles
  581.           (help   #generic-help @copyfiles-help)
  582.           (source (tackon sourcedir "Turbo"))
  583.              (dest   (tackon target "TurboPrint/Turbo"))
  584.               (all)
  585.    )
  586.    (copyfiles
  587.           (help   #generic-help @copyfiles-help)
  588.           (source (tackon sourcedir "Extra"))
  589.              (dest   (tackon target "TurboPrint/Extra"))
  590.           (infos)
  591.               (all)
  592.    )
  593.    (copyfiles
  594.           (help   #generic-help @copyfiles-help)
  595.           (source (tackon sourcedir "Docs"))
  596.              (dest   (tackon target "TurboPrint/Docs"))
  597.           (infos)
  598.               (all)
  599.    )
  600.    (copyfiles
  601.           (help   #generic-help @copyfiles-help)
  602.           (source (tackon sourcedir "Temp"))
  603.              (dest   (tackon target "TurboPrint/Temp"))
  604.               (all)
  605.    )
  606.    (copyfiles
  607.           (help   #generic-help @copyfiles-help)
  608.           (source (tackon sourcedir "Libs"))
  609.              (dest   (tackon target "TurboPrint/Libs"))
  610.               (all)
  611.    )
  612.    (copyfiles
  613.           (help   #generic-help @copyfiles-help)
  614.           (source (tackon sourcedir "Configs/_Default_"))
  615.              (dest   (tackon target "TurboPrint/Configs"))
  616.    )
  617.    (copyfiles
  618.           (help   #generic-help @copyfiles-help)
  619.           (source (tackon sourcedir "Colors"))
  620.              (dest   (tackon target "TurboPrint/Colors"))
  621.               (all)
  622.    )
  623.    (copyfiles
  624.           (help   #generic-help @copyfiles-help)
  625.           (source (tackon sourcedir "Drivers"))
  626.              (dest   (tackon target "TurboPrint/Drivers"))
  627.               (pattern "~(#?.fzp)")
  628.    )
  629.    (copyfiles
  630.           (help   #generic-help @copyfiles-help)
  631.           (source (tackon sourcedir "LiesMich"))
  632.              (dest   (tackon target "TurboPrint") )
  633.           (infos)
  634.    )
  635.  
  636.  
  637. ))
  638. (user 1)
  639. (message #installation-done)
  640. (exit (quiet))
  641.  
  642.